# -*- mode: snippet -*-
# name: plyr ddply Split Data Frame, Apply Function, And Return Results
# key: ddply@plyr
# key: plyr.ddply
# contributor: Shuguang Sun
# --
$1 <- plyr::ddply(.data = $1,
            .variables = c($2),
            .drop = TRUE, .parallel = FALSE, # Turn off parallel for debugging
            .fun = function(DF) {

                $0

                ## Return DF
                DF
            })
